Namespace OpenArchive
    Namespace System
        Namespace DB
            Namespace Tables
                Public Class CompTable
                    Private m_Name As String
                    Private m_Version As String
                    Private m_Instance As Integer
                    Private m_Offset As Long
                    Private m_Size As Long

                    ''' <summary>
                    ''' TypeName of component
                    ''' </summary>
                    ''' <value></value>
                    ''' <returns></returns>
                    ''' <remarks></remarks>
                    Friend Property Name() As String
                        Get
                            Return m_Name
                        End Get
                        Set(ByVal value As String)
                            m_Name = value
                        End Set
                    End Property
                    ''' <summary>
                    ''' TypeVersion of component
                    ''' </summary>
                    ''' <value></value>
                    ''' <returns></returns>
                    ''' <remarks></remarks>
                    Friend Property Version() As Version
                        Get
                            Return New Version(m_Version)
                        End Get
                        Set(ByVal value As Version)
                            m_Version = value.ToString
                        End Set
                    End Property
                    Friend Property Instance() As Integer
                        Get
                            Return m_Instance
                        End Get
                        Set(ByVal value As Integer)
                            m_Instance = value
                        End Set
                    End Property
                    Friend Property Offset() As Long
                        Get
                            Return m_Offset
                        End Get
                        Set(ByVal value As Long)
                            m_Offset = value
                        End Set
                    End Property
                    Friend Property Size() As Long
                        Get
                            Return m_Size
                        End Get
                        Set(ByVal value As Long)
                            m_Size = value
                        End Set
                    End Property
                End Class
            End Namespace
        End Namespace
    End Namespace
End Namespace

